home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2004 March / PCWMAR04.iso / Software / Resources / JawsPDF Creator / JawsPdfCreatorEn.exe / Disk1 / data1.cab / InstDirResource / procset / fsinit.ps < prev    next >
Encoding:
Text File  |  2003-08-08  |  810 b   |  32 lines

  1. %!
  2. %%VMusage: 0 0
  3. %%VMlocation: global
  4. %%
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6. %%                                    %%
  7. %% FontSetInit: the procedures used when defining CFF fonts.        %%
  8. %% StartData just reads in the CFF string and then calls the        %%
  9. %% definefontset operator.                        %%
  10. %%                                    %%
  11. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  12.  
  13. /FontSetInit <<
  14.  
  15. /StartData {
  16.   false countexecstack array execstack {
  17.     /@findresource eq {pop true exit} if
  18.   } forall
  19.   1 index 100000 gt and dup 4 1 roll {
  20.     pop currentfile
  21.   } {
  22.     string currentfile exch readstring pop
  23.   } ifelse
  24.   systemdict begin definefontset end
  25.   /FontSet defineresource pop
  26.   {currentfile closefile} if
  27.   end
  28. } bind
  29.  
  30. >> /ProcSet defineresource
  31.  
  32.